Attribute VB_Name = "constants"
'Printer         Data Port        Status          Control
'LPT1            0x03bc          0x03bd          0x03be
'LPT2            0x0378          0x0379          0x037a
'LPT3            0x0278          0x0279          0x027a
Global Const LPT_1 = &H3BC
Global Const LPT_2 = &H378
Global Const LPT_3 = &H278
Global Const busy_hex = &H80 '10000000 this bit inverted in relation to port and dll
Global Const ack_hex = &H40  '01000000
Global Const pe_hex = &H20   '00100000
Global Const sel_hex = &H10  '00010000
Global Const err_hex = &H8   '00001000
Global Const output_state = &HFF 'defualt output port state 11111111
Global Const control_state = &HC 'default control port state 00001100
Global Const out1on = &H1 ' 1st bit, or it to output
Global Const out1off = &HFE '1st bit, and it to output
Global Const out2on = &H2 ' 2nd bit, or it to output
Global Const out2off = &HFD '2nd bit, and it to output
Global Const out3on = &H4 ' 3rd bit, or it to output
Global Const out3off = &HFB '3rd bit, and it to output
Global Const out7on = &H40 ' 7th bit, or it to output
Global Const out7off = &HBF '7th bit,and it to output
Global Const out8on = &H80 ' 8th bit, or it to output
Global Const out8off = &H7F '8th bit and it to output
Global outport_value As Integer ' the current output status
Global busy_bit As Integer 'BUSY bit
Global ack_bit As Integer ' ACK inverted bit
Global pe_bit As Integer ' PE paper empty bit
Global sel_bit As Integer ' SEL select bit
Global err_bit As Integer ' ERR error bit inverted
Global input_port As Integer 'addr of input port
Global output_port As Integer 'addr of output port
Global control_port As Integer 'addr of control port

